home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / AddOns / bible.mrc < prev    next >
Encoding:
Text File  |  1997-11-03  |  6.8 KB  |  155 lines
  1. on 1:TEXT:-bible:#:msg $chan To use C-Script's Bible type -kjv [book] [verse] Example: -kjv John 3:16 OR -kjv Isa 40:30-31
  2. on +1:TEXT:-help:*: {
  3.   msg $nick To use C-Script's Bible type -kjv [book] [verse] Example: -kjv John 3:16 OR -kjv Isa 40:30-31
  4.   msg $nick Level 1 Commands: %CMNDS1
  5. }
  6. alias bible say To use C-Script's Bible type -kjv [book] [verse] Example: -kjv John 3:16 OR -kjv Isa 40:30-31
  7. alias biblehelp echo 3 -a Owner Usage: /kjv [book] [verse] | echo 3 -a Other users will use "-kjv [book] [verse]" | if ($findfile($mircdir\AddOns\Bible\kjv,1jo.txt,1) == $null) { echo 4 -a BibleBot verse files not found! | echo 4 -s If you want to be able to use the BibleBot to recite Bible verses you must download the Bible verse files at http://www.c-script.com/download.htm }
  8. #kjv on
  9. on 1:JOIN: {
  10.   if ($group(#autogreet) == on) {
  11.     .notice $nick I am using C-Script-Bible, available at http://www.c-script.com/
  12.     .notice $nick To use me type -kjv [book] [verse] Example: -kjv John 3:16 OR -kjv Isa 40:30-31
  13.   }
  14. }
  15. on 1:TEXT:-kjv *:#: {
  16.   set %bbotfile $read -s $+ $2 $mircdirAddOns\Bible\bookname.txt
  17.   if (%bbotfile == $null) { msg $chan No such book: $2 | goto end }
  18.   set %bbotfile %bbotfile $+ .txt
  19.   if ( $chr(45) isin $3 ) {
  20.     set %bbotchapverse $gettok($3,1,45)
  21.     set %bbotmulti $gettok($3,2,45)
  22.     set %bbotchap $gettok(%bbotchapverse,1,58)
  23.     set %bbotverse $gettok(%bbotchapverse,2,58)
  24.     %bbotmultidif = %bbotmulti - %bbotverse
  25.     if (%bbotmultidif > 3) set %bbotmultidif 3
  26.     set %bbotcount 0
  27.     :goback
  28.     if (%bbotcount <= %bbotmultidif) {
  29.       %bbotCurVerse = %bbotverse + %bbotcount
  30.       set %bbotCurVer $read -s $+ %bbotchap $+ : $+ %bbotCurVerse $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  31.       if (%bbotCurVer == $null) { msg $chan No such chap/verse: %bbotchap $+ : $+ %bbotCurVerse | goto end }
  32.       msg $chan $read -s $+ $2 $mircdirAddOns\Bible\index.txt %bbotchap $+ : $+ %bbotCurVerse > %bbotCurVer (KJV)
  33.       inc %bbotcount
  34.       goto goback
  35.     }
  36.     else goto end
  37.   }
  38.   set %bbotCurVer $read -s $+ $3 $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  39.   if (%bbotCurVer == $null) { msg $chan No such chap/verse: $3  | goto end }
  40.   msg $chan $read -s $+ $2 $mircdirAddOns\Bible\index.txt $3 > %bbotCurVer (KJV)
  41.   :end
  42.   unset %bbot*
  43. }
  44. on 1:TEXT:-kjv *:?: {
  45.   set %bbotfile $read -s $+ $2 $mircdirAddOns\Bible\bookname.txt
  46.   if (%bbotfile == $null) { msg $nick No such book: $2 | goto end }
  47.   set %bbotfile %bbotfile $+ .txt
  48.   if ( $chr(45) isin $3 ) {
  49.     set %bbotchapverse $gettok($3,1,45)
  50.     set %bbotmulti $gettok($3,2,45)
  51.     set %bbotchap $gettok(%bbotchapverse,1,58)
  52.     set %bbotverse $gettok(%bbotchapverse,2,58)
  53.     %bbotmultidif = %bbotmulti - %bbotverse
  54.     if (%bbotmultidif > 3) set %bbotmultidif 3
  55.     set %bbotcount 0
  56.     :goback
  57.     if (%bbotcount <= %bbotmultidif) {
  58.       %bbotCurVerse = %bbotverse + %bbotcount
  59.       set %bbotCurVer $read -s $+ %bbotchap $+ : $+ %bbotCurVerse $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  60.       if (%bbotCurVer == $null) { msg $nick No such chap/verse: %bbotchap $+ : $+ %bbotCurVerse | goto end }
  61.       msg $nick $read -s $+ $2 $mircdirAddOns\Bible\index.txt %bbotchap $+ : $+ %bbotCurVerse > %bbotCurVer (KJV)
  62.       inc %bbotcount
  63.       goto goback
  64.     }
  65.     else goto end
  66.   }
  67.   set %bbotCurVer $read -s $+ $3 $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  68.   if (%bbotCurVer == $null) { msg $nick No such chap/verse: $3  | goto end }
  69.   msg $nick $read -s $+ $2 $mircdirAddOns\Bible\index.txt $3 > %bbotCurVer (KJV)
  70.   :end
  71.   unset %bbot*
  72. }
  73. on 1:CHAT:-kjv *: {
  74.   if ($group(#dccline) == on) { %temp.com = /relay }
  75.   else { %temp.com = /msg = $+ $nick }
  76.   set %bbotfile $read -s $+ $2 $mircdirAddOns\Bible\bookname.txt
  77.   if (%bbotfile == $null) { msg = $+ $nick No such book: $2 | goto end }
  78.   set %bbotfile %bbotfile $+ .txt
  79.   if ( $chr(45) isin $3 ) {
  80.     set %bbotchapverse $gettok($3,1,45)
  81.     set %bbotmulti $gettok($3,2,45)
  82.     set %bbotchap $gettok(%bbotchapverse,1,58)
  83.     set %bbotverse $gettok(%bbotchapverse,2,58)
  84.     %bbotmultidif = %bbotmulti - %bbotverse
  85.     if (%bbotmultidif > 3) set %bbotmultidif 3
  86.     set %bbotcount 0
  87.     :goback
  88.     if (%bbotcount <= %bbotmultidif) {
  89.       %bbotCurVerse = %bbotverse + %bbotcount
  90.       set %bbotCurVer $read -s $+ %bbotchap $+ : $+ %bbotCurVerse $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  91.       if (%bbotCurVer == $null) { msg = $+ $nick No such chap/verse: %bbotchap $+ : $+ %bbotCurVerse | goto end }
  92.       %temp.com $read -s $+ $2 $mircdirAddOns\Bible\index.txt %bbotchap $+ : $+ %bbotCurVerse > %bbotCurVer (KJV)
  93.       inc %bbotcount
  94.       goto goback
  95.     }
  96.     else goto end
  97.   }
  98.   set %bbotCurVer $read -s $+ $3 $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  99.   if (%bbotCurVer == $null) { msg = $+ $nick No such chap/verse: $3  | goto end }
  100.   %temp.com $read -s $+ $2 $mircdirAddOns\Bible\index.txt $3 > %bbotCurVer (KJV)
  101.   :end
  102.   unset %bbot*
  103. }
  104. alias kjv {
  105.   if ($server == $null && $chat($active) == $null) { set %bbotacmnd echo 12 -a }
  106.   else { set %bbotacmnd say }
  107.   set %bbotfile $read -s $+ $1 $mircdirAddOns\Bible\bookname.txt
  108.   if (%bbotfile == $null) { echo 4 -a No such book: $1 | goto end }
  109.   set %bbotfile %bbotfile $+ .txt
  110.   if ( $chr(45) isin $2 ) {
  111.     set %bbotchapverse $gettok($2,1,45)
  112.     set %bbotmulti $gettok($2,2,45)
  113.     set %bbotchap $gettok(%bbotchapverse,1,58)
  114.     set %bbotverse $gettok(%bbotchapverse,2,58)
  115.     %bbotmultidif = %bbotmulti - %bbotverse
  116.     if (%bbotmultidif > 3) set %bbotmultidif 3
  117.     set %bbotcount 0
  118.     :goback
  119.     if (%bbotcount <= %bbotmultidif) {
  120.       %bbotCurVerse = %bbotverse + %bbotcount
  121.       set %bbotCurVer $read -s $+ %bbotchap $+ : $+ %bbotCurVerse $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  122.       if (%bbotCurVer == $null) { echo 4 -a No such chap/verse: %bbotchap $+ : $+ %bbotCurVerse | goto end }
  123.       %bbotacmnd $read -s $+ $2 $mircdirAddOns\Bible\index.txt %bbotchap $+ : $+ %bbotCurVerse > %bbotCurVer (KJV)
  124.       inc %bbotcount
  125.       goto goback
  126.     }
  127.     else goto end
  128.   }
  129.   set %bbotCurVer $read -s $+ $2 $mircdirAddOns\Bible\kjv\ $+ %bbotfile
  130.   if (%bbotCurVer == $null) { echo 4 -a No such chap/verse: $2  | goto end }
  131.   %bbotacmnd $read -s $+ $1 $mircdirAddOns\Bible\index.txt $2 > %bbotCurVer (KJV)
  132.   :end
  133.   unset %bbot*
  134. }
  135. on 1:START: { unset %bbot* | if ($findfile($mircdir\AddOns\Bible\kjv,1jo.txt,1) == $null) { echo 4 -a BibleBot verse files not found! | echo 4 -s If you want to be able to use the BibleBot to recite Bible verses you must download the Bible verse files at http://www.c-script.com/download.shtm } }
  136. #kjv end
  137. menu status {
  138.   &Bible Adn
  139.   .&Help:biblehelp
  140.   .-
  141.   .&Books
  142.   ..&KJV
  143.   ...&On:.enable #kjv
  144.   ...&Off:.disable #kjv
  145. }
  146. menu channel {
  147.   &Bible Adn
  148.   .&Help:biblehelp
  149.   .-
  150.   .&Books
  151.   ..&KJV
  152.   ...&On:.enable #kjv
  153.   ...&Off:.disable #kjv
  154. }
  155.